﻿Public Class ThoiKhoaBieuBUS
    Public Function LayDanhSachThoiKhoaBieu() As List(Of ThoiKhoaBieuDTO)
        Dim tkbDAO As New ThoiKhoaBieuDAO
        Return tkbDAO.LayDanhSachThoiKhoaBieu()
    End Function

    Public Function ThemThoiKhoaBieu(ByVal tkb As ThoiKhoaBieuDTO) As Integer
        Dim tkbDAO As New ThoiKhoaBieuDAO()
        Return tkbDAO.ThemThoiKhoaBieu(tkb)
    End Function

    Public Function XoaThoiKhoaBieu(ByVal tkb As ThoiKhoaBieuDTO) As Integer
        Dim tkbDAO As New ThoiKhoaBieuDAO
        Return tkbDAO.XoaThoiKhoaBieu(tkb)
    End Function

    Public Function SuaThoiKhoaBieu(ByVal tkb As ThoiKhoaBieuDTO) As Integer
        Dim tkbDAO As New ThoiKhoaBieuDAO
        Return tkbDAO.SuaThoiKhoaBieu(tkb)
    End Function

    Public Function TraCuuTKB(ByVal tkb As ThoiKhoaBieuDTO) As List(Of ThoiKhoaBieuDTO)
        Dim tkbDAO As New ThoiKhoaBieuDAO
        Return tkbDAO.TraCuuTKB(tkb)
    End Function

    Public Function TraCuuTTTKB(ByVal tkb As BaoCaoThoiKhoaBieuDTO) As List(Of BaoCaoThoiKhoaBieuDTO)
        Dim tkbDAO As New ThoiKhoaBieuDAO
        Return tkbDAO.TraCuuTTTKB(tkb)
    End Function

End Class
